home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / RSLTFORM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-12  |  1.2 KB  |  57 lines
  1. unit Rsltform;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Buttons, Grids, ExtCtrls,
  8.   Dialogs;
  9.  
  10. type
  11.   TResultForm = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     DBNavigator: TDBNavigator;
  14.     Panel1: TPanel;
  15.     DataSource1: TDataSource;
  16.     Panel2: TPanel;
  17.     Panel3: TPanel;
  18.     Query1: TQuery;
  19.     SpeedButton2: TSpeedButton;
  20.     Panel4: TPanel;
  21.     SpeedButton1: TSpeedButton;
  22.     procedure SpeedButton1Click(Sender: TObject);
  23.     procedure SpeedButton2Click(Sender: TObject);
  24.   end;
  25.  
  26. var
  27.   ResultForm: TResultForm;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TResultForm.SpeedButton1Click(Sender: TObject);
  34. begin
  35.   Close;
  36. end;
  37.  
  38. procedure TResultForm.SpeedButton2Click(Sender: TObject);
  39. var
  40.   strText: string;    { Variable to hold display text }
  41.   iCounter: Integer;  { Loop counter variable }
  42. begin
  43.  
  44.   { Build a string containing the query }
  45.  
  46.   strText := '';
  47.   for iCounter := 0 to Query1.SQL.Count - 1 do
  48.     strText := strText + Query1.SQL[iCounter];
  49.  
  50.   { Display the query text }
  51.  
  52.   MessageDlg('The underlying query is: ' + #10 + #10 + strText,
  53.               mtInformation, [mbOK], 0 );
  54. end;
  55.  
  56. end.
  57.